home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #306 (1994)(Rhein-Sieg-Soft).zip / Franz PD Disk #306 (1994)(Rhein-Sieg-Soft).adf / mand2000 / arexx / Zoom10percent.mnd2 < prev    next >
Text File  |  1993-09-12  |  884b  |  21 lines
  1. /* This script is supplied with the Mand2000 demo and release */
  2. /* versions and may be freely distributed. */
  3. /* Copyright 1993 Cygnus Software. */
  4.  
  5. /* Zoom fractal window in ten percent. */
  6.  
  7. portname = address()    /* Retrieve the current port name. */
  8. /* If the portname does not start with MAND2000 then this script must */
  9. /* have been run with rx, rather than from Mand2000.  Therefore we */
  10. /* need to set the port name.  We do not always set the port name */
  11. /* because it is better to let Mand2000 set it for us, so that */
  12. /* this script can be used with windows other than the one with */
  13. /* port name MAND2000.1. */
  14. if (left(portname, 8) ~= "MAND2000") THEN
  15.     address 'MAND2000.1'
  16.  
  17. /* This zooms in towards the center of the screen by ten percent. */
  18. /* The pixel location to zoom in towards can be specified, as can */
  19. /* different zoom amounts. */
  20. zoomintopixel amount 1.10
  21.